50 POKE53272,21
60 PRINTCHR$(142)"[147]":POKE53281,0:POKE53280,0
70 CL$="                              ":CR$=CHR$(13)
80 TP$="    [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
90 MD$="    [180]                              [170]"
100 BT$="    [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
105 O$="[158]OSCARPARTY[145]"
107 P$="[156]OSCARPARTY[145]"
110 PRINT"[147][129]"TP$:FORI=1TO5:PRINTMD$:NEXT:PRINTBT$
120 PRINTTAB(7)"[145][145][145][145][145]LOADSTAR PROUDLY PRESENTS"
125 PRINTO$
126 SYS57812"PARTY FONT",8,0:POKE780,0:POKE781,0:POKE782,8:SYS65493
127 POKE53272,19
128 POKE147,0:SYS57812"OSCAR SPRITE",8,1:SYS62631
129 POKE147,0:SYS57812"INPUT ANY.O",8,1:SYS62631
130 V=53248:FORI=0TO5:POKEV+39+I,7:NEXT
131 FORI=0TO5:READA:POKE2040+I,A:NEXT
132 POKEV+16,56:FORI=0TO5:READA:POKEV+I*2,A:NEXT
133 FORI=0TO5:READA:POKEV+1+I*2,A:NEXT
135 POKEV+21,63
140 PRINT"[156]"TP$:FORI=1TO7:PRINTMD$:NEXT:PRINTBT$
150 PRINTTAB(9)"[145][145][145][145][145][145][145][154]1.  [159]PREPARATION"
160 PRINTTAB(9)"[154]2.  [159]OSCAR NIGHT"
161 PRINTTAB(9)"[154]3.  [159]RETURN TO LOADSTAR"
162 POKE198,0:POKE214,3:PRINT
165 FORT=1TO10:NEXT:PRINTO$:FORT=1TO60:NEXT:PRINTP$
170 GETA$:IFA$<"1"ORA$>"3"THEN165
180 IFA$="3"THEN800
190 POKE53269,0
200 F$="OSCAR NIGHT":IFA$="1"THENF$="PREPARATION"
210 POKE214,16:PRINT:PRINTTAB(8)"[153]LOADING, PLEASE WAIT..."
220 PRINT"[144]LOAD"CHR$(34)F$CHR$(34)",8"
230 PRINT"RUN[145][145][145][145][145][145][145][145]"
240 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
390 GOTO110
800 POKE214,21:PRINT
810 PRINTTAB(7)"QUIT?  [159]ARE YOU SURE?  (Y[159]/N[159])[145]"
820 GETA$:IFA$<>"Y"ANDA$<>"N"THEN820
830 IFA$="N"THENPRINTCL$:GOTO162
835 POKE53269,0
840 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
850 IFER%<>63THENEND
860 PRINT"[147]"TAB(8)"HEADING BACK TO LOADSTAR"
870 PRINT"[144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
880 PRINT"RUN"
890 POKE631,13:POKE632,13:POKE633,13:POKE198,3
895 POKE53272,21:POKE2048,0:POKE44,8:END
1000 DATA13,14,15,13,14,15
1010 DATA26,26,26,60,60,60
1020 DATA80,101,122,80,101,122